home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1998 November: Tool Chest / Dev.CD Nov 98 TC.toast / Sample Code / Snippets / Printing / GrayText / PrintComments.p < prev   
Encoding:
Text File  |  1992-07-15  |  4.7 KB  |  116 lines  |  [TEXT/MPS ]
  1. UNIT PrintComments;
  2.     INTERFACE
  3.     
  4. CONST
  5. (*    Type                Kind    Data Size    Data Type        Description                                *)
  6.     TextBegin            = 150;    (*    6        TTxtPicRec        Begin text layout modifications            *)
  7.     TextEnd                = 151;    (*    0        NIL                End text layout modifications            *)
  8.     StringBegin            = 152;    (*    0        NIL                Begin segmented string                    *)
  9.     StringEnd            = 153;    (*    0        NIL                End segmented string                    *)
  10.     TextCenter            = 154;    (*    8        TTxtCenter        Specify center of rotation for            *) 
  11.                                 (*                            the TextBegin comment (above)            *)
  12.  
  13.     LineLayoutOff        = 155;    (*    0        NIL                Disable driver's line layout routine    *)    
  14.     LineLayoutOn        = 156;    (*    0        NIL                Enable driver's line layout routine        *)    
  15.     CustomLineLayout    = 157;    (*    16        LLCustom        Customize driver's line layout routine    *)
  16.  
  17.     PolyBegin            = 160;    (*    0        NIL                Begin PostScript polygon                *)    
  18.     PolyEnd                = 161;    (*    0        NIL                End PostScript polygon                    *)    
  19.     PolyIgnore            = 163;    (*    0        NIL                Ignore StdLine calls(for smoothed polys)*)    
  20.     PolySmooth            = 164;    (*    1        PolyVerb        Smooth a polygon using B-Splines        *)    
  21.     picPlyClo            = 165;    (*    0        NIL                Close an open polygon(connect start and    *)
  22.                                 (*                            end points                                *)
  23.  
  24.     DashedLine            = 180;    (*    -        TDashedLine        Begin PostScript line dashing            *)
  25.     DashedStop            = 181;    (*    0        NIL                End PostScript line dashing                *)
  26.     SetLineWidth        = 182;    (*    4        Point            Set hi resolution line width             *)    
  27.  
  28.     PostScriptBegin        = 190;    (*    0        NIL                Signal driver to ingnore Quickdraw calls*)
  29.     PostScriptEnd        = 191;    (*    0        NIL                Re-enable Quickdraw                        *)
  30.     PostScriptHandle    = 192;    (*    -        Handle            Transfer a block of PostScript            *)    
  31.     PostScriptFile        = 193;    (*    -        StringHandle    Transfer a file of PostScript            *)    
  32.     TextIsPostScript    = 194;    (*    0        NIL                Use DrawString to send PostScript        *)
  33.     ResourcePS            = 195;    (*    8        Type/ID/Index    Transfer a resource of PostScript        *)    
  34.  
  35.     RotateBegin            = 200;    (*    4        TRotation        Begin hi-resolution graphics rotation    *)    
  36.     RotateEnd            = 201;    (*    0        NIL                End rotation                            *)
  37.     RotateCenter        = 202;    (*    8        Center            Specify center of rotation                *)
  38.  
  39.     FormsPrinting        = 210;    (*    0        NIL                Specify graphics to remain resident        *)
  40.                                 (*                            for all pages in the print job            *)
  41.     EndFormsPrinting    = 211;    (*    0        NIL                Evict the residents                        *)
  42.  
  43.  
  44. TYPE
  45.  
  46. TTxtPicHdl = ^TTxtPicPtr;
  47. TTxtPicPtr = ^TTxtPicRec;
  48. TTxtPicRec = PACKED RECORD
  49.     tJus:    Byte;        (* Justification for line layout of text.                                *)
  50.     tFlip:    Byte;        (* Horizontal or vertical flipping                                        *)
  51.     tRot:    INTEGER;    (* Text rotation (0..360) (for fractional rot., see extTTxtPicRec below)*)
  52.     tLine:    Byte;        (* Single, 1 1/2, or double line spacing                                *)
  53.     tCmnt:    Byte;        (* Reserved                                                                *)
  54. END;
  55.  
  56. ExtTTxtPicHdl = ^ExtTTxtPicPtr;
  57. ExtTTxtPicPtr = ^ExtTTxtPicRec;
  58. ExtTTxtPicRec = PACKED RECORD
  59.     tJus:        Byte;    (* Justification for line layout of text                                *)
  60.     tFlip:        Byte;    (* Horizontal or vertical flipping                                        *)
  61.     tRot:        INTEGER;(* (Ignored)                                                            *)
  62.     tLine:        Byte;    (* Single, 1 1/2, or double line spacing                                *)
  63.     tCmnt:        Byte;    (* Reserved                                                                *)
  64.     tRotFixed:    Fixed;    (* Text rotation (0..360)                                                *)
  65. END;
  66.  
  67. TTxtCenterHdl = ^TTxtCenterPtr;
  68. TTxtCenterPtr = ^TTxtCenter;
  69. TTxtCenter = RECORD
  70.     y, x:    Fixed;        (* Offset from current pen location to center of rotation                *)
  71. END;
  72.  
  73. TPolyVerbHdl = ^TPolyVerbPtr;
  74. TPolyVerbPtr = ^TPolyVerb;
  75. TPolyVerb = PACKED RECORD
  76.     f7, f6, f5, f4,     (* Reserved                                                                *)
  77.     fPolyRes,             (* TRUE = Polygon was specified with doubled points                        *)
  78.     fPolyClose,         (* TRUE = Polygon should be closed                                        *)
  79.     fPolyFill,             (* TRUE = Polygon should be filled                                        *)
  80.     fPolyFrame:    BOOLEAN;(* TRUE = Polygon should be framed                                        *)
  81. END;
  82.  
  83. TDashedLineHdl = ^TDashedLinePtr;
  84. TDashedLinePtr = ^TDashedLine;
  85. TDashedLine = PACKED RECORD
  86.     offset:        SignedByte;                    (* Offset as specified by PostScript ???            *)
  87.     centered:    SignedByte;                    (* (Ignored) ???                                    *)
  88.     dashed:        ARRAY [0..0] OF SignedByte;    (* Dynamic array of dash intervals                    *)
  89. END;
  90.  
  91. PSRsrcHdl = ^PSRsrcPtr;
  92. PSRsrcPtr = ^PSRsrc;
  93. PSRsrc = RECORD
  94.     PSType:        ResType;    (* Resource type.  (Actual resource format is 'STR ' or 'STR#')        *)
  95.     PSID:        INTEGER;    (* Resource ID.                                                        *)
  96.     PSIndex:    INTEGER;    (* If PSType = 'STR ' then 0 otherwise index into 'STR#'.            *)
  97. END;
  98.  
  99. RotationHdl = ^RotationPtr;
  100. RotationPtr = ^Rotation;
  101. Rotation = RECORD
  102.     flip:        INTEGER;    (* Horizontal/vertical flipping (0=none,1=horizontal,2=vertical)    *)
  103.     angle:        INTEGER;    (* Clockwise rotation in degrees (0..360)                            *)
  104. END;
  105.  
  106. ExtRotationHdl = ^ExtRotationPtr;
  107. ExtRotationPtr = ^ExtRotation;
  108. ExtRotation = RECORD
  109.     flip:        INTEGER;    (* Horizontal/vertical flipping (0=none,1=horizontal,2=vertical)    *)
  110.     angle:        INTEGER;    (* (Ignored)                                                        *)
  111.     angleFixed:    Fixed;        (* Clockwise rotation in degrees (0..360)                            *)
  112. END;
  113.  
  114.  
  115. END.
  116.